﻿module Utility


let TilNone(values : seq<'a option>) = 
   values 
   |> Seq.takeWhile(fun v -> v.IsSome) 
   |> Seq.toList 
     
      
let TilFalse(values : seq<bool>) = 
   values 
   |> Seq.takeWhile(fun v -> v) 
   |> Seq.toList
   

      

